home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Controls
/
Visual Basic Controls.iso
/
vbcontrol
/
dsaniset
/
frmdemo.fr_
< prev
next >
Wrap
Text File
|
1999-04-30
|
6KB
|
187 lines
VERSION 5.00
Object = "{950B442B-E530-11D2-87A3-8A66BD643D34}#2.16#0"; "DSAniSet.ocx"
Begin VB.Form FrmDemo
BorderStyle = 3 'Fixed Dialog
Caption = "Demonstration of the Animated Cursor Controls..."
ClientHeight = 2985
ClientLeft = 45
ClientTop = 330
ClientWidth = 5610
Icon = "FrmDemo.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2985
ScaleWidth = 5610
ShowInTaskbar = 0 'False
StartUpPosition = 3 'Windows Default
Begin DSAniSet.DSAniCursor Master
Left = 4440
Top = 2280
_ExtentX = 953
_ExtentY = 953
Cursors = "FrmDemo.frx":0442
End
Begin DSAniSet.DSAniImage Cursors
Height = 480
Index = 0
Left = 5040
Top = 1200
Width = 480
_ExtentX = 847
_ExtentY = 847
BackColor = 12632256
OLEDropMode = 1
Cursor = "FrmDemo.frx":5BBB
CurLength = 7878
End
Begin DSAniSet.DSAniImage AniImage
Height = 480
Left = 120
Top = 960
Width = 480
_ExtentX = 847
_ExtentY = 847
BackColor = 12632256
OLEDropMode = 1
Cursor = "FrmDemo.frx":9967
CurLength = 8744
End
Begin VB.CommandButton Buttons
Caption = "Button 3"
Height = 495
Index = 2
Left = 2880
TabIndex = 6
Top = 2400
Width = 1455
End
Begin VB.CommandButton Buttons
Caption = "Button 2"
Height = 495
Index = 1
Left = 2880
TabIndex = 5
Top = 1800
Width = 1455
End
Begin VB.CommandButton Buttons
Caption = "Button 1"
Height = 495
Index = 0
Left = 2880
TabIndex = 4
Top = 1200
Width = 1455
End
Begin DSAniSet.DSAniImage Cursors
Height = 480
Index = 1
Left = 5040
Top = 1800
Width = 480
_ExtentX = 847
_ExtentY = 847
BackColor = 12632256
OLEDropMode = 1
Cursor = "FrmDemo.frx":DDD7
CurLength = 4894
End
Begin DSAniSet.DSAniImage Cursors
Height = 480
Index = 2
Left = 5040
Top = 2400
Width = 480
_ExtentX = 847
_ExtentY = 847
BackColor = 12632256
OLEDropMode = 1
Cursor = "FrmDemo.frx":10433
CurLength = 9482
End
Begin VB.Line Lines
Index = 0
X1 = 2760
X2 = 2760
Y1 = 120
Y2 = 2880
End
Begin VB.Label Labels
AutoSize = -1 'True
Caption = "Animated Cursor Control. Drag cursors onto the three image to change the cursor that is used for the buttons."
Height = 855
Index = 1
Left = 2880
TabIndex = 7
Top = 120
Width = 2655
WordWrap = -1 'True
End
Begin VB.Label Data
AutoSize = -1 'True
Caption = "5916ms"
Height = 195
Index = 2
Left = 720
TabIndex = 3
Top = 1440
Width = 555
End
Begin VB.Label Data
AutoSize = -1 'True
Caption = "Lynne"
Height = 195
Index = 1
Left = 720
TabIndex = 2
Top = 1200
Width = 435
End
Begin VB.Label Data
AutoSize = -1 'True
Caption = "Who's Out There"
Height = 195
Index = 0
Left = 720
TabIndex = 1
Top = 960
Width = 1215
End
Begin VB.Label Labels
AutoSize = -1 'True
Caption = "Animated Cursor Image Control. See what happens when you drag a cursor from Explorer onto the image below!"
Height = 780
Index = 0
Left = 120
TabIndex = 0
Top = 120
Width = 2535
WordWrap = -1 'True
End
End
Attribute VB_Name = "FrmDemo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub AniImage_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
FrmDemo.AniImage.Animation = Data.Files(1)
FrmDemo.Data(0).Caption = FrmDemo.AniImage.CursorName
FrmDemo.Data(1).Caption = FrmDemo.AniImage.Artist
FrmDemo.Data(2).Caption = FrmDemo.AniImage.Time & "ms"
End Sub
Private Sub Cursors_OLEDragDrop(Index As Integer, Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
FrmDemo.Cursors(Index).Animation = Data.Files(1)
If FrmDemo.Cursors(Index).LastError <> NoError Then
FrmDemo.Master.Cursors.RemoveControl "Buttons(" & Index & ")"
Else
FrmDemo.Master.Cursors.AddCursor "Cursor " & Index + 1, Data.Files(1)
FrmDemo.Master.Cursors.SetControl "Buttons(" & Index & ")", "Cursor " & Index + 1
End If
End Sub